* lisp/subr.el (read-char-from-minibuffer): Fix bug#68995

diff --git a/lisp/subr.el b/lisp/subr.el
index e53ef505522ec6a8293d7da2cb9208e415f052f1..f41bb34045e38c47646bc500279403c9dc536b57 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3726,10 +3726,10 @@ There is no need to explicitly add `help-char' to CHARS;
          (this-command this-command)
          (result (minibuffer-with-setup-hook
                     (lambda ()
+                      (setq-local post-self-insert-hook nil)
                       (add-hook 'post-command-hook
                                 (lambda ()
-                                  ;; FIXME: Should we use `<='?
-                                  (if (= (1+ (minibuffer-prompt-end))
+                                  (if (<= (1+ (minibuffer-prompt-end))
                                          (point-max))
                                        (exit-minibuffer)))
                                 nil 'local))